МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ Національний університет «Львівська політехніка» Кафедра АСУ Звіт до лабораторної роботи №2 з курсу “Об'єктно орієнтоване програмування” Варіант 11 Бунь І.П. Тема : Архітектура проекту в середовищі програмування DELPHI Мета роботи: ознайомитись з компонентами Delphi, їх властивостями, методами та подіями, розглянути особливості побудови прикладних програм із використанням компонент Delphi; вивчити побудову проекту в середовищі програмування Delphi, призначення та зміст файлів проекту. Порядок виконання роботи: Створити проект для виконання індивідуального завдання. Оформити звіт для захисту лабораторної роботи за зразком назва роботи мета роботи зміст індивідуального завдання тексти головного файлу проекту, програмних модулів та файлів форм аналіз отриманих результатів та висновки Завдання А. Використовуючи компоненти Memo та OpenDialog створити програму для перегляду та редагування текстових файлів (з можливостями відкриття та збереження файлів на диску). B. Додати на форму назву файла, що редагується та покази секундоміра. Тексти програм: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Menus, StdCtrls, ExtCtrls; type TMainForm = class(TForm) Memo: TMemo; MainMenu: TMainMenu; N1: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N2: TMenuItem; StatusBar: TStatusBar; Timer: TTimer; OpenDialog: TOpenDialog; SaveDialog: TSaveDialog; procedure TimerTimer(Sender: TObject); procedure N3Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure N5Click(Sender: TObject); procedure MemoKeyPress(Sender: TObject; var Key: Char); procedure N4Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N6Click(Sender: TObject); private TimerNum:integer; DocChange:boolean; { Private declarations } public { Public declarations } end; var MainForm: TMainForm; implementation {$R *.dfm} procedure TMainForm.TimerTimer(Sender: TObject); begin inc(TimerNum); StatusBar.Panels.Items[1].Text:='Секундомір: '+inttostr(TimerNum); end; procedure TMainForm.N3Click(Sender: TObject); var Choise:byte; begin Choise:=0; if DocChange then begin Choise:=Application.MessageBox('Зберегти зміни?','Збереження...',MB_YESNOCANCEL); case Choise of IDYES : begin if Length(OpenDialog.FileName)>0 then Memo.Lines.SaveToFile(OpenDialog.FileName) else begin if SaveDialog.Execute() then begin Memo.Lines.SaveToFile(SaveDialog.FileName); end; end; end; end; end; if not(Choise=IDCANCEL) then if OpenDialog.Execute() then begin StatusBar.Panels.Items[0].Text:='Файл: '+OpenDialog.FileName; Memo.Lines.LoadFromFile(OpenDialog.FileName); end; end; procedure TMainForm.FormCreate(Sender: TObject); begin DocChange:=false; end; procedure TMainForm.N5Click(Sender: TObject); var Choise:byte; begin if not DocChange then Close else begin Choise:=Application.MessageBox('Зберегти зміни?','Збереження...',MB_YESNOCANCEL); case Choise of IDYES : begin if Length(OpenDialog.FileName)>0 then begin Memo.Lines.SaveToFile(OpenDialog.FileName); Close; end else begin if SaveDialog.Execute() then ...